Resultados Base vac_srag_sg_21092021

Resultados Infecção

DT::datatable(output$tab1, colnames=c("Primeira Dose", "Status Vacinal Confirmado PCR", "Quantidade"), 
        extensions = c('FixedColumns',"FixedHeader","Buttons"),
          options = list(dom = 'Bfrtip',buttons = c('copy', 'csv', 'excel', 'pdf', 'print'),
                         scrollX = TRUE, 
                         paging=TRUE,
                         fixedHeader=TRUE, pageLength = nrow(output$tab2)))

DT::datatable(output$tab2, colnames=c("Primeira Dose", "Status Vacinal Confirmado PCR", "Soma Tempo Final"), 
        extensions = c('FixedColumns',"FixedHeader","Buttons"),
          options = list(dom = 'Bfrtip',buttons = c('copy', 'csv', 'excel', 'pdf', 'print'),
                         scrollX = TRUE, 
                         paging=TRUE,
                         fixedHeader=TRUE, pageLength = nrow(output$tab2)))

output$modelo_glm_vac%>%
  mutate(nome=sub("status_vacinal.", "", nome))%>%
  select(`Modelo`, `Vacina`, `nome`, `RR`, `95%lo`, `95%up`, `VE 95CI`)%>%
  DT::datatable( colnames=c("Modelo", "Vacina", "Status Vacinal", "RR", "95%lo", "95%up", "VE 95CI"), 
        extensions = c('FixedColumns',"FixedHeader","Buttons"),
          options = list(dom = 'Bfrtip',buttons = c('copy', 'csv', 'excel', 'pdf', 'print'),
                         scrollX = TRUE, 
                         paging=TRUE,
                         fixedHeader=TRUE, pageLength = nrow(.)))

output$faixa_etaria_output%>%
  mutate(nome=sub("status_vacinal.", "", nome))%>%
  select(`Modelo`, `Vacina`, `nome`, `Vacina`, `RR`, `95%lo`, `95%up`, `VE 95CI`, `Faixa Etária`)%>%
  DT::datatable( colnames=c("Modelo", "Vacina", "Status Vacinal", "RR", "95%lo", "95%up", "VE 95CI", "Faixa Etária"), 
        extensions = c('FixedColumns',"FixedHeader","Buttons"),
          options = list(dom = 'Bfrtip',buttons = c('copy', 'csv', 'excel', 'pdf', 'print'),
                         scrollX = TRUE, 
                         paging=TRUE,
                         fixedHeader=TRUE, pageLength = nrow(.)))

output$az_cv_output%>%
  mutate(nome = sub("nome_primeira_dose.", "", nome))%>%
  DT::datatable(colnames=c("Modelo", "Vacina", "RR", "95%lo", "95%up", "VE 95CI"), 
        extensions = c('FixedColumns',"FixedHeader","Buttons"),
          options = list(dom = 'Bfrtip',buttons = c('copy', 'csv', 'excel', 'pdf', 'print'),
                         scrollX = TRUE, 
                         paging=TRUE,
                         fixedHeader=TRUE, pageLength = nrow(.)))

DT::datatable(output$person_time_output$n,colnames=c("Status Vacinal", "Covid-19-AstraZeneca", "Covid-19-Coronavac-Sinovac/Butantan", "Covid-19-Janssen", "Covid-19-Pfizer"), 
        extensions = c('FixedColumns',"FixedHeader","Buttons"),
          options = list(dom = 'Bfrtip',buttons = c('copy', 'csv', 'excel', 'pdf', 'print'),
                         scrollX = TRUE, 
                         paging=TRUE,
                         fixedHeader=TRUE, pageLength = nrow(output$person_time_output$n)))

DT::datatable(output$person_time_output$event,colnames=c("Status Vacinal", "Covid-19-AstraZeneca", "Covid-19-Coronavac-Sinovac/Butantan", "Covid-19-Janssen", "Covid-19-Pfizer"), 
        extensions = c('FixedColumns',"FixedHeader","Buttons"),
          options = list(dom = 'Bfrtip',buttons = c('copy', 'csv', 'excel', 'pdf', 'print'),
                         scrollX = TRUE, 
                         paging=TRUE,
                         fixedHeader=TRUE, output$person_time_output$event))

DT::datatable(output$person_time_output$pyears, colnames=c("Status Vacinal", "Covid-19-AstraZeneca", "Covid-19-Coronavac-Sinovac/Butantan", "Covid-19-Janssen", "Covid-19-Pfizer"), 
        extensions = c('FixedColumns',"FixedHeader","Buttons"),
          options = list(dom = 'Bfrtip',buttons = c('copy', 'csv', 'excel', 'pdf', 'print'),
                         scrollX = TRUE, 
                         paging=TRUE,
                         fixedHeader=TRUE, output$person_time_output$pyears))

Resultados Internação

DT::datatable(output$tab1, colnames=c("Primeira Dose", "Status Vacinal Confirmado PCR", "Quantidade"), 
        extensions = c('FixedColumns',"FixedHeader","Buttons"),
          options = list(dom = 'Bfrtip',buttons = c('copy', 'csv', 'excel', 'pdf', 'print'),
                         scrollX = TRUE, 
                         paging=TRUE,
                         fixedHeader=TRUE, pageLength = nrow(output$tab2)))

DT::datatable(output$tab2, colnames=c("Primeira Dose", "Status Vacinal Confirmado PCR", "Soma Tempo Final"), 
        extensions = c('FixedColumns',"FixedHeader","Buttons"),
          options = list(dom = 'Bfrtip',buttons = c('copy', 'csv', 'excel', 'pdf', 'print'),
                         scrollX = TRUE, 
                         paging=TRUE,
                         fixedHeader=TRUE, pageLength = nrow(output$tab2)))

output$modelo_glm_vac%>%
  mutate(nome=sub("status_vacinal.", "", nome))%>%
  select(`Modelo`, `Vacina`, `nome`, `RR`, `95%lo`, `95%up`, `VE 95CI`)%>%
  DT::datatable( colnames=c("Modelo", "Vacina", "Status Vacinal", "RR", "95%lo", "95%up", "VE 95CI"), 
        extensions = c('FixedColumns',"FixedHeader","Buttons"),
          options = list(dom = 'Bfrtip',buttons = c('copy', 'csv', 'excel', 'pdf', 'print'),
                         scrollX = TRUE, 
                         paging=TRUE,
                         fixedHeader=TRUE, pageLength = nrow(.)))

output$faixa_etaria_output%>%
  mutate(nome=sub("status_vacinal.", "", nome))%>%
  select(`Modelo`, `Vacina`, `nome`, `Vacina`, `RR`, `95%lo`, `95%up`, `VE 95CI`, `Faixa Etária`)%>%
  DT::datatable( colnames=c("Modelo", "Vacina", "Status Vacinal", "RR", "95%lo", "95%up", "VE 95CI", "Faixa Etária"), 
        extensions = c('FixedColumns',"FixedHeader","Buttons"),
          options = list(dom = 'Bfrtip',buttons = c('copy', 'csv', 'excel', 'pdf', 'print'),
                         scrollX = TRUE, 
                         paging=TRUE,
                         fixedHeader=TRUE, pageLength = nrow(.)))

output$az_cv_output%>%
  mutate(nome = sub("nome_primeira_dose.", "", nome))%>%
  DT::datatable(colnames=c("Modelo", "Vacina", "RR", "95%lo", "95%up", "VE 95CI"), 
        extensions = c('FixedColumns',"FixedHeader","Buttons"),
          options = list(dom = 'Bfrtip',buttons = c('copy', 'csv', 'excel', 'pdf', 'print'),
                         scrollX = TRUE, 
                         paging=TRUE,
                         fixedHeader=TRUE, pageLength = nrow(.)))

DT::datatable(output$person_time_output$n,colnames=c("Status Vacinal", "Covid-19-AstraZeneca", "Covid-19-Coronavac-Sinovac/Butantan", "Covid-19-Janssen", "Covid-19-Pfizer"), 
        extensions = c('FixedColumns',"FixedHeader","Buttons"),
          options = list(dom = 'Bfrtip',buttons = c('copy', 'csv', 'excel', 'pdf', 'print'),
                         scrollX = TRUE, 
                         paging=TRUE,
                         fixedHeader=TRUE, pageLength = nrow(output$person_time_output$n)))

DT::datatable(output$person_time_output$event,colnames=c("Status Vacinal", "Covid-19-AstraZeneca", "Covid-19-Coronavac-Sinovac/Butantan", "Covid-19-Janssen", "Covid-19-Pfizer"), 
        extensions = c('FixedColumns',"FixedHeader","Buttons"),
          options = list(dom = 'Bfrtip',buttons = c('copy', 'csv', 'excel', 'pdf', 'print'),
                         scrollX = TRUE, 
                         paging=TRUE,
                         fixedHeader=TRUE, output$person_time_output$event))

DT::datatable(output$person_time_output$pyears, colnames=c("Status Vacinal", "Covid-19-AstraZeneca", "Covid-19-Coronavac-Sinovac/Butantan", "Covid-19-Janssen", "Covid-19-Pfizer"), 
        extensions = c('FixedColumns',"FixedHeader","Buttons"),
          options = list(dom = 'Bfrtip',buttons = c('copy', 'csv', 'excel', 'pdf', 'print'),
                         scrollX = TRUE, 
                         paging=TRUE,
                         fixedHeader=TRUE, output$person_time_output$pyears))

Resultados UTI

DT::datatable(output$tab1, colnames=c("Primeira Dose", "Status Vacinal Confirmado PCR", "Quantidade"), 
        extensions = c('FixedColumns',"FixedHeader","Buttons"),
          options = list(dom = 'Bfrtip',buttons = c('copy', 'csv', 'excel', 'pdf', 'print'),
                         scrollX = TRUE, 
                         paging=TRUE,
                         fixedHeader=TRUE, pageLength = nrow(output$tab2)))

DT::datatable(output$tab2, colnames=c("Primeira Dose", "Status Vacinal Confirmado PCR", "Soma Tempo Final"), 
        extensions = c('FixedColumns',"FixedHeader","Buttons"),
          options = list(dom = 'Bfrtip',buttons = c('copy', 'csv', 'excel', 'pdf', 'print'),
                         scrollX = TRUE, 
                         paging=TRUE,
                         fixedHeader=TRUE, pageLength = nrow(output$tab2)))

output$modelo_glm_vac%>%
  mutate(nome=sub("status_vacinal.", "", nome))%>%
  select(`Modelo`, `Vacina`, `nome`, `RR`, `95%lo`, `95%up`, `VE 95CI`)%>%
  DT::datatable( colnames=c("Modelo", "Vacina", "Status Vacinal", "RR", "95%lo", "95%up", "VE 95CI"), 
        extensions = c('FixedColumns',"FixedHeader","Buttons"),
          options = list(dom = 'Bfrtip',buttons = c('copy', 'csv', 'excel', 'pdf', 'print'),
                         scrollX = TRUE, 
                         paging=TRUE,
                         fixedHeader=TRUE, pageLength = nrow(.)))

output$faixa_etaria_output%>%
  mutate(nome=sub("status_vacinal.", "", nome))%>%
  select(`Modelo`, `Vacina`, `nome`, `Vacina`, `RR`, `95%lo`, `95%up`, `VE 95CI`, `Faixa Etária`)%>%
  DT::datatable( colnames=c("Modelo", "Vacina", "Status Vacinal", "RR", "95%lo", "95%up", "VE 95CI", "Faixa Etária"), 
        extensions = c('FixedColumns',"FixedHeader","Buttons"),
          options = list(dom = 'Bfrtip',buttons = c('copy', 'csv', 'excel', 'pdf', 'print'),
                         scrollX = TRUE, 
                         paging=TRUE,
                         fixedHeader=TRUE, pageLength = nrow(.)))

output$az_cv_output%>%
  mutate(nome = sub("nome_primeira_dose.", "", nome))%>%
  DT::datatable(colnames=c("Modelo", "Vacina", "RR", "95%lo", "95%up", "VE 95CI"), 
        extensions = c('FixedColumns',"FixedHeader","Buttons"),
          options = list(dom = 'Bfrtip',buttons = c('copy', 'csv', 'excel', 'pdf', 'print'),
                         scrollX = TRUE, 
                         paging=TRUE,
                         fixedHeader=TRUE, pageLength = nrow(.)))

DT::datatable(output$person_time_output$n,colnames=c("Status Vacinal", "Covid-19-AstraZeneca", "Covid-19-Coronavac-Sinovac/Butantan", "Covid-19-Janssen", "Covid-19-Pfizer"), 
        extensions = c('FixedColumns',"FixedHeader","Buttons"),
          options = list(dom = 'Bfrtip',buttons = c('copy', 'csv', 'excel', 'pdf', 'print'),
                         scrollX = TRUE, 
                         paging=TRUE,
                         fixedHeader=TRUE, pageLength = nrow(output$person_time_output$n)))

DT::datatable(output$person_time_output$event,colnames=c("Status Vacinal", "Covid-19-AstraZeneca", "Covid-19-Coronavac-Sinovac/Butantan", "Covid-19-Janssen", "Covid-19-Pfizer"), 
        extensions = c('FixedColumns',"FixedHeader","Buttons"),
          options = list(dom = 'Bfrtip',buttons = c('copy', 'csv', 'excel', 'pdf', 'print'),
                         scrollX = TRUE, 
                         paging=TRUE,
                         fixedHeader=TRUE, output$person_time_output$event))

DT::datatable(output$person_time_output$pyears, colnames=c("Status Vacinal", "Covid-19-AstraZeneca", "Covid-19-Coronavac-Sinovac/Butantan", "Covid-19-Janssen", "Covid-19-Pfizer"), 
        extensions = c('FixedColumns',"FixedHeader","Buttons"),
          options = list(dom = 'Bfrtip',buttons = c('copy', 'csv', 'excel', 'pdf', 'print'),
                         scrollX = TRUE, 
                         paging=TRUE,
                         fixedHeader=TRUE, output$person_time_output$pyears))

Resultados Morte

DT::datatable(output$tab1, colnames=c("Primeira Dose", "Status Vacinal Confirmado PCR", "Quantidade"), 
        extensions = c('FixedColumns',"FixedHeader","Buttons"),
          options = list(dom = 'Bfrtip',buttons = c('copy', 'csv', 'excel', 'pdf', 'print'),
                         scrollX = TRUE, 
                         paging=TRUE,
                         fixedHeader=TRUE, pageLength = nrow(output$tab2)))

DT::datatable(output$tab2, colnames=c("Primeira Dose", "Status Vacinal Confirmado PCR", "Soma Tempo Final"), 
        extensions = c('FixedColumns',"FixedHeader","Buttons"),
          options = list(dom = 'Bfrtip',buttons = c('copy', 'csv', 'excel', 'pdf', 'print'),
                         scrollX = TRUE, 
                         paging=TRUE,
                         fixedHeader=TRUE, pageLength = nrow(output$tab2)))

output$modelo_glm_vac%>%
  mutate(nome=sub("status_vacinal.", "", nome))%>%
  select(`Modelo`, `Vacina`, `nome`, `RR`, `95%lo`, `95%up`, `VE 95CI`)%>%
  DT::datatable( colnames=c("Modelo", "Vacina", "Status Vacinal", "RR", "95%lo", "95%up", "VE 95CI"), 
        extensions = c('FixedColumns',"FixedHeader","Buttons"),
          options = list(dom = 'Bfrtip',buttons = c('copy', 'csv', 'excel', 'pdf', 'print'),
                         scrollX = TRUE, 
                         paging=TRUE,
                         fixedHeader=TRUE, pageLength = nrow(.)))

output$faixa_etaria_output%>%
  mutate(nome=sub("status_vacinal.", "", nome))%>%
  select(`Modelo`, `Vacina`, `nome`, `Vacina`, `RR`, `95%lo`, `95%up`, `VE 95CI`, `Faixa Etária`)%>%
  DT::datatable( colnames=c("Modelo", "Vacina", "Status Vacinal", "RR", "95%lo", "95%up", "VE 95CI", "Faixa Etária"), 
        extensions = c('FixedColumns',"FixedHeader","Buttons"),
          options = list(dom = 'Bfrtip',buttons = c('copy', 'csv', 'excel', 'pdf', 'print'),
                         scrollX = TRUE, 
                         paging=TRUE,
                         fixedHeader=TRUE, pageLength = nrow(.)))

output$az_cv_output%>%
  mutate(nome = sub("nome_primeira_dose.", "", nome))%>%
  DT::datatable(colnames=c("Modelo", "Vacina", "RR", "95%lo", "95%up", "VE 95CI"), 
        extensions = c('FixedColumns',"FixedHeader","Buttons"),
          options = list(dom = 'Bfrtip',buttons = c('copy', 'csv', 'excel', 'pdf', 'print'),
                         scrollX = TRUE, 
                         paging=TRUE,
                         fixedHeader=TRUE, pageLength = nrow(.)))

DT::datatable(output$person_time_output$n,colnames=c("Status Vacinal", "Covid-19-AstraZeneca", "Covid-19-Coronavac-Sinovac/Butantan", "Covid-19-Janssen", "Covid-19-Pfizer"), 
        extensions = c('FixedColumns',"FixedHeader","Buttons"),
          options = list(dom = 'Bfrtip',buttons = c('copy', 'csv', 'excel', 'pdf', 'print'),
                         scrollX = TRUE, 
                         paging=TRUE,
                         fixedHeader=TRUE, pageLength = nrow(output$person_time_output$n)))

DT::datatable(output$person_time_output$event,colnames=c("Status Vacinal", "Covid-19-AstraZeneca", "Covid-19-Coronavac-Sinovac/Butantan", "Covid-19-Janssen", "Covid-19-Pfizer"), 
        extensions = c('FixedColumns',"FixedHeader","Buttons"),
          options = list(dom = 'Bfrtip',buttons = c('copy', 'csv', 'excel', 'pdf', 'print'),
                         scrollX = TRUE, 
                         paging=TRUE,
                         fixedHeader=TRUE, output$person_time_output$event))

DT::datatable(output$person_time_output$pyears, colnames=c("Status Vacinal", "Covid-19-AstraZeneca", "Covid-19-Coronavac-Sinovac/Butantan", "Covid-19-Janssen", "Covid-19-Pfizer"), 
        extensions = c('FixedColumns',"FixedHeader","Buttons"),
          options = list(dom = 'Bfrtip',buttons = c('copy', 'csv', 'excel', 'pdf', 'print'),
                         scrollX = TRUE, 
                         paging=TRUE,
                         fixedHeader=TRUE, output$person_time_output$pyears))